home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / biz / dbase / ABook_034.lha / Address-Book / Install < prev    next >
Encoding:
Text File  |  1995-03-03  |  5.9 KB  |  269 lines
  1. ; $VER: Address-Book V00.33
  2. ; Copyright ©1994 by Jörg Krause - All Rights Reserved
  3.  
  4. (complete 0)
  5.  
  6. ; --- English (default) strings ---
  7.  
  8. (set #introduction (cat "\n"
  9.  
  10.     "Address-Book V00.34, All Rights Reserved.     \n"
  11.     "                                                 \n"
  12.     "Address-Book     ©'94/95 Jörg Krause             \n"
  13.     "MUI              ©'93/94 Stefan Stuntz           \n"
  14.     "Textfield.gadget ©'95 Mark Thomas                \n"
  15.     "                                                 \n"
  16.     "Address-Book is NOT 'freely distributable'.      \n"
  17.     "Please have a look at the licence file before    \n"
  18.     "installing Address-Book; installing this software\n"
  19.     "means accepting that licence. Thank you.         \n"
  20. ))
  21.  
  22. (set #badkick "\n Sorry, this package requires OS v2.04 or better.\n")
  23.  
  24. (set #where "Where do you want to install Address-Book ?")
  25.  
  26. (set #where_prefs "Where do you want to install the ABook-Prefs ?")
  27.  
  28. (set #wbstart "Should I copy the Arexx-Server into  WBStartup ?\n")
  29.  
  30. (set #cat "Do you want to install the german catalog ?\n")
  31.  
  32. (set #startuphelp (cat "\n"
  33.  
  34.     " If the Arexx-Server is copied into WBStartup,\n"
  35.     " you should access the database via Arexx     \n"
  36.     " at every time.                               \n"
  37. ))
  38.  
  39. (set #where_help (cat "\n"
  40.  
  41.     " Simply select a directory (a root directory is   \n"
  42.     " fine, too). I'm going to copy Address-Book       \n"
  43.     " within the directory you specify. You should     \n"
  44.     " select a directory which has an icon attached to \n"
  45.     " it (e.g. SYS:Utilities).                         \n"
  46. ))
  47.  
  48. (set #where_prefs_help (cat "\n"
  49.  
  50.     " Simply select a directory. E.g. the Prefs       \n"
  51.     " directory                                       \n"
  52. ))
  53.  
  54. (set #help_cat (cat "\n"))
  55.  
  56.  
  57. ; --- German (default) strings ---
  58.  
  59. (set #introduction (cat "\n"
  60.  
  61.     "Address-Book V00.34, Alle Rechte vorbehalten. \n"
  62.     "                                               \n"
  63.     "Address-Book     ©'94/95 Jörg Krause           \n"
  64.     "MUI              ©'93/94 Stefan Stuntz         \n"
  65.     "Textfield.gadget ©'95 Mark Thomas              \n"
  66.     "                                               \n"
  67.     "Address-Book ist NICHT 'frei vertreibbar'.     \n"
  68.     "Bitte lesen Sie die Lizenz-Datei, bevor Sie    \n"
  69.     "Address-Book installieren; Mit der Installation\n"
  70.     "stimmen Sie den Lizenzbedingungen zu. Viel Spaß\n"
  71.     "mit dem Programm.                              \n"
  72. ))
  73.  
  74. (set #badkick "\n Sorry, dieses Paket benötigt mind. OS v2.04.\n")
  75.  
  76. (set #where "In welches Verzeichnis soll Address-Book hinein kopiert werden ?\n")
  77.  
  78. (set #where_prefs "In welches Verezichnis sollen die Prefs kopiert werden ?\n")
  79.  
  80. (set #wbstart "Soll der Arexx-Server in den WBSartup-Ordner kopiert werden ?\n")
  81.  
  82. (set #cat "Soll der deutsche Katalog installiert werden ?\n")
  83.  
  84. (set #startuphelp (cat "\n"
  85.     
  86.     " Der Arexx-Server kann in den WBStartup Ordner\n"
  87.     " kopiert werden. Dadurch hat man mittels Arexx\n"
  88.     " jederzeit Zugriff auf die Daten.             \n"
  89. ))
  90.  
  91. (set #where_help (cat "\n"
  92.  
  93.     " Wählen Sie ein beliebiges Verzeichnis. Hauptver-\n"
  94.     " zeichnisse wie SYS: können auch benutzt werden. \n"
  95.     " In dem angegebenen Pfad wird Address-Book       \n"
  96.     " installiert werden.                             \n"
  97.     " Sie sollten ein Verzeichnis wählen, dem ein Icon\n"
  98.     " zugeordnet ist, um Address-Book auch über die   \n"
  99.     " Workbench starten zu können.                    \n"
  100. ))
  101.  
  102. (set #where_prefs_help (cat "\n"
  103.  
  104.     " Wählen sie ein beliebiges Verzeichnis. Es bietet\n"
  105.     " sich z.B. das Prefs Verzeichnis an.             \n"
  106. ))
  107.  
  108. (set #help_cat (cat "\n"))
  109.  
  110. ;sure we are running under OS2.04 or above
  111. (if (< (/ (getversion) 65536) 37)
  112.  
  113.     (
  114.       (message #badkick)
  115.       (exit (quiet))
  116.     )
  117. )
  118.  
  119. (message #introduction)
  120.  
  121. (welcome)
  122.  
  123. ;Get directory to install Address-Book in.
  124. (set destdir 
  125.     (askdir 
  126.         (prompt #where)
  127.         (help   #where_help)
  128.         (default "SYS:")
  129.     )
  130. )
  131.  
  132. (complete 10)
  133.  
  134. ;Copy Address-Book to destination.
  135. (copyfiles
  136.     (source "Address-Book")
  137.     (dest destdir)
  138.     (infos)
  139. )
  140.  
  141. (complete 20)
  142.  
  143. (set prefsdir
  144.     (askdir
  145.         (prompt #where_prefs)
  146.         (help #where_prefs_help)
  147.         (default destdir)
  148.     )
  149. )
  150.  
  151. (copyfiles
  152.     (source "ABook-Prefs")
  153.     (dest prefsdir)
  154.     (infos)
  155. )
  156.  
  157. (complete 30)
  158.  
  159. (if (= 0 (exists (tackon destdir "data/Address-Book.dat")))
  160.     ((copyfiles
  161.        (source "data/Address-Book.dat")
  162.        (dest (tackon destdir "Data"))
  163.     )
  164.     (copyfiles
  165.        (source "Data.info")
  166.        (dest destdir)
  167.     ))
  168. )
  169.  
  170. (complete 40)
  171.  
  172. ;Copy Mui-License
  173. (copyfiles
  174.     (source "ReadMe.mui")
  175.     (dest destdir)
  176.     (infos)
  177. )
  178. ;copy drawer info
  179. (copyfiles
  180.     (source "Docs.info")
  181.     (dest destdir)
  182. )
  183.  
  184. (complete 50)
  185.  
  186. ;copy the docs
  187. (copyfiles
  188.     (source "docs")
  189.     (dest (tackon destdir "Docs"))
  190.     (all)
  191. )
  192.  
  193. (complete 60)
  194.  
  195. (set copycat
  196.     (askbool
  197.           (prompt #cat)
  198.           (help #help_cat)
  199.           (choices "OK" "Skip")
  200.           (default 0)
  201.     )
  202. )
  203.  
  204. (if copycat
  205.     (copyfiles
  206.         (source "Catalogs/deutsch")
  207.         (dest "Locale:catalogs/deutsch")
  208.         (all)
  209.     )
  210. )
  211.  
  212. ;Copy textfield.gadget
  213. (copyfiles
  214.     (source "Classes")
  215.     (dest "SYS:Classes")
  216.     (all)
  217. )
  218.  
  219. ;Copy arexx & macros
  220. (copyfiles
  221.     (source "Arexx")
  222.     (dest (tackon destdir "Arexx"))
  223.     (all)
  224. )
  225.  
  226. (copyfiles
  227.     (source "Arexx.info")
  228.     (dest destdir)
  229. )
  230.  
  231. (complete 70)
  232.  
  233. (set answer
  234.     (askbool
  235.           (prompt #wbstart)
  236.           (help #startuphelp)
  237.           (choices "OK" "Skip")
  238.           (default 0)
  239.     )
  240. )
  241.  
  242. (if answer
  243.     (copyfiles
  244.         (source "WBStartup")
  245.         (dest "sys:WBStartup")
  246.         (all)
  247.     )
  248. )
  249. (if answer
  250.     (tooltype
  251.         (dest "SYS:WBStartup/ABook-Server")
  252.         (settooltype "DATAFILE" (tackon destdir "data/Address-Book.dat"))
  253.         (noposition)
  254.     )
  255. )
  256.  
  257. (complete 80)
  258. ;Correct @default-dest so that final information is correct.
  259. (set @default-dest destdir)
  260.  
  261. (complete 90)
  262.  
  263. ;remove silly .info
  264. (delete (tackon destdir ".info"))
  265.  
  266. (complete 100)
  267.  
  268. (exit)
  269.